Sports Illustrated for Kids - Awesome Athletes!/Sports Illustrated for Kids - Awesome Athletes!.iso/iv.dir/00011_selection scripts.ls

Text File | 1996-04-19 | 7.9 KB | 250 lines

on AthleteSelect
  global givState
  MessagePut("entering Athlete Select...")
  set the selectType of givState to #athlete
  PlaySoundWait("PHEEU.AIF")
  go("ivSelect")
  MessagePut("in athlete select handler, just went to frame ivSelect")
end

on TopicSelect
  global givState
  MessagePut("entering Topic Select...")
  set the selectType of givState to #topic
  PlaySoundWait("PHEEU.AIF")
  go("ivSelect")
  MessagePut("in topic select handler, just went to frame ivSelect")
end

on DoAthleteSelect _ath
  global givState, givSELECTBACKSPRITE, givSELECTFORESPRITE, givSelectCleanupFlag
  set givSelectCleanupFlag to 1
  if (_ath < 1) or (_ath >= the number of lines in field "AthleteSelectText") then
    set the selectType of givState to #none
  else
    set lookup to ["QA0041", "QA0151", "QA0311", "QA0921", "QA0971", "QA1491", "QA1781", "QA2021", "QA2231", "QA2261", "QA2351", "QA2361", "QA2371", "QA2871"]
    set _clip to getAt(lookup, _ath)
    MessagePut("doing athlete select, clip found:" && _clip)
    SetAthleteFromClip(givState, _clip)
    QuestionListSelectNone()
  end if
  go("ivMain")
  set the visible of sprite givSELECTFORESPRITE to 0
  set the visible of sprite givSELECTBACKSPRITE to 0
  set the castNum of sprite givSELECTFORESPRITE to the number of cast "nullcast"
  set the castNum of sprite givSELECTBACKSPRITE to the number of cast "nullcast"
end

on DoTopicSelect _topic
  global givFrameScript, givEDITTEXTBOXSPRITE, givState, givSELECTBACKSPRITE, givSELECTFORESPRITE, givTopics, givSelectCleanupFlag
  MessagePut("topic selected with topic = " & _topic)
  set givSelectCleanupFlag to 1
  if (_topic < 1) or (_topic >= the number of lines in field "TopicSelectText") then
    set the selectType of givState to #none
  else
    set the topicNum of givState to _topic
    set lis to getAt(givTopics, _topic)
    set the questionList of givState to value(string(lis))
    SetMonitorPtr(givState, 1, 1)
    SetActiveMonitor(1, 1)
    SetAthleteFromMonitor(givState, "000", 1)
    QuestionListSelectNone()
  end if
  go("ivMain")
  set the visible of sprite givSELECTFORESPRITE to 0
  set the visible of sprite givSELECTBACKSPRITE to 0
  set the castNum of sprite givSELECTFORESPRITE to the number of cast "nullcast"
  set the castNum of sprite givSELECTBACKSPRITE to the number of cast "nullcast"
end

on LoadFromDisk
  global givLOADSPRITE, givAnimEnable, givMyDialog, givState, givEditListRead, gSISystem
  MessagePut("load from disk...")
  PlaySoundWait("INSERT.AIF")
  updateStage()
  if givAnimEnable then
    PlayAnim(givLOADSPRITE, "LoadAnim", 5, 1)
  end if
  if objectp(givEditListRead) then
    givEditListRead(mdispose)
  end if
  set filenm to EMPTY
  if gSISystem = "MAC" then
    set filenm to givMyDialog(mGetFile, "SIKD")
  else
    set filenm to givMyDialog(mGetFile, EMPTY, "*.SIK", "*.SIK")
  end if
  if filenm = EMPTY then
    MessagePut("file not found")
    exit
  end if
  if gSISystem = "MAC" then
    set givEditListRead to FileIO(mnew, "read", filenm)
  else
    set givEditListRead to FileIO(mnew, "read", filenm)
  end if
  if not objectp(givEditListRead) then
    MessagePut("could not initialize editListRead, load cancelled")
    exit
  end if
  set tmpList to EMPTY
  set tmpList to givEditListRead(mReadLine)
  set tmpList to stripCRLF(tmpList)
  if char 1 of tmpList <> "%" then
    MessagePut("not my list, no % present in char 1")
    exit
  end if
  delete char 1 of tmpList
  set tmpList to value(tmpList)
  if listp(tmpList) then
    MessagePut("list found:" && tmpList)
  else
    MessagePut("no list found, edit list unchanged")
    givEditListRead(mdispose)
    exit
  end if
  set tmp1 to EMPTY
  set tmp1 to givEditListRead(mReadLine)
  MessagePut("read in" && tmp1)
  set tmp to stripCRLF(tmp1)
  if char 1 of tmp1 = "%" then
    MessagePut("found name: " & tmp1)
    delete char 1 of tmp1
    repeat while (the last char in tmp1 = " ") or (the last char in tmp1 = RETURN)
      delete char the number of chars in tmp1 of tmp1
    end repeat
  else
    givEditListRead(mdispose)
    exit
  end if
  set tmp2 to EMPTY
  set tmp2 to givEditListRead(mReadLine)
  MessagePut("read in" && tmp2)
  set tmp to stripCRLF(tmp2)
  if char 1 of tmp2 = "%" then
    MessagePut("found title: " & tmp2)
    delete char 1 of tmp2
    repeat while (the last char in tmp2 = " ") or (the last char in tmp2 = RETURN)
      delete char the number of chars in tmp2 of tmp2
    end repeat
  else
    givEditListRead(mdispose)
    exit
  end if
  set tmp3 to EMPTY
  set tmp3 to givEditListRead(mReadLine)
  MessagePut("read in" && tmp3)
  set tmp to stripCRLF(tmp3)
  if char 1 of tmp3 = "%" then
    MessagePut("found loc: " & tmp3)
    delete char 1 of tmp3
    repeat while (the last char in tmp3 = " ") or (the last char in tmp3 = RETURN)
      delete char the number of chars in tmp3 of tmp3
    end repeat
  else
    givEditListRead(mdispose)
    exit
  end if
  givEditListRead(mdispose)
  if givAnimEnable then
    PlayAnim(givLOADSPRITE, "LoadAnim", 5, -1)
    updateStage()
  end if
  set the editList of givState to value(string(tmpList))
  if count(the editList of givState) > 0 then
    set the editListPtr of givState to 1
  else
    set the editListPtr of givState to 0
  end if
  set the userName of givState to tmp1
  set the userTitle of givState to tmp2
  set the userLoc of givState to tmp3
  if the mode of givState = #play then
    if count(the editList of givState) > 0 then
      SetMonitorListByNumber(3, the editList of givState)
      SetMonitorPtr(givState, 3, 1)
      BuildEditListText()
      SetActiveMonitor(3)
      SetQuestionTextBox()
      DisplayMonitor(3)
    end if
  else
    DisplayEditTextBox()
  end if
end

on GetCredits
  PlaySoundWait("CLIK2.AIF")
  MessagePut("entering GetCredits...")
  go("ivCredits")
end

on CreditsKeyDown
  global givState, givCreditsCleanupFlag, givWhichText, givMAINMONITORSPRITE
  if (the key = RETURN) or (the key = ENTER) then
    set tmp to EMPTY
    set tmp to char 1 to 24 of the text of field "enter name"
    set tmp to the text of field "enter name"
    if the number of chars in field "enter name" = 0 then
      set the text of field "enter name" to " "
    end if
    repeat while the last char in tmp = " "
      delete char the number of chars in tmp of tmp
    end repeat
    set the userName of givState to tmp
    set tmp to EMPTY
    set tmp to char 1 to 24 of the text of field "enter title"
    set tmp to the text of field "enter title"
    if the number of chars in field "enter title" = 0 then
      set the text of field "enter title" to " "
    end if
    repeat while the last char in tmp = " "
      delete char the number of chars in tmp of tmp
    end repeat
    set the userTitle of givState to tmp
    set tmp to EMPTY
    set tmp to char 1 to 24 of the text of field "enter location"
    set tmp to the text of field "enter location"
    if the number of chars in field "enter location" = 0 then
      set the text of field "enter location" to " "
    end if
    repeat while the last char in tmp = " "
      delete char the number of chars in tmp of tmp
    end repeat
    set the userLoc of givState to tmp
    puppetSprite(24, 0)
    puppetSprite(25, 0)
    puppetSprite(26, 0)
    set givCreditsCleanupFlag to 1
    set the keyDownScript to EMPTY
    set the castNum of sprite givMAINMONITORSPRITE to the number of cast "MainMonitorCast"
    go("ivMain")
    exit
  else
    if the key = TAB then
      if the text of cast the castNum of sprite givWhichText = EMPTY then
        set the text of cast the castNum of sprite givWhichText to " "
      end if
      set the editableText of sprite givWhichText to 0
      updateStage()
      set givWhichText to givWhichText + 1
      if givWhichText = 27 then
        set givWhichText to 24
      end if
      set the editableText of sprite givWhichText to 1
      updateStage()
    else
      pass()
    end if
  end if
end

on CreditsMouseDown
  global givCONTROLPANELSPRITE
  set clik to the clickOn
  if clik = (givCONTROLPANELSPRITE + 10) then
    MessagePut("stop button clicked in roll credits")
  end if
  go("ivRollDone")
end